home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / On this Date 3.0.cpt / On this Date 3.0 / background_4410.txt < prev    next >
Text File  |  1992-02-12  |  4KB  |  210 lines
  1. -- background: 4410 from stack: in.0
  2. -- bmap block id: 4680
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Info card
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11.  
  12. -- part 6 (button)
  13. -- low flags: 00
  14. -- high flags: 2003
  15. -- rect: left=402 top=5 right=31 bottom=431
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 15420 / 15420
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Prev
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   visual effect wipe right
  27.   go to previous card
  28. end mouseUp
  29.  
  30.  
  31.  
  32. -- part 7 (button)
  33. -- low flags: 00
  34. -- high flags: 2003
  35. -- rect: left=435 top=5 right=31 bottom=463
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 16560 / 16560
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Next
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   visual effect wipe left
  47.   go to next card
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 9 (button)
  53. -- low flags: 00
  54. -- high flags: 2003
  55. -- rect: left=466 top=5 right=32 bottom=501
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 6720 / 6720
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Return
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   visual effect dissolve slow to white
  67.   visual effect dissolve slow
  68.   go to card id 2998
  69. end mouseUp
  70.  
  71.  
  72. -- part 10 (button)
  73. -- low flags: 00
  74. -- high flags: 2003
  75. -- rect: left=84 top=3 right=31 bottom=117
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 1009 / 1009
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Search for Date
  84. ----- HyperTalk script -----
  85. on mouseDown
  86.   ask "What date would you like?"
  87.   put 5 into lag
  88.   put "1,2,3,4" into seq
  89.   repeat with n = 1 to the number of items in seq
  90.     set cursor to "HGls." & item n of seq
  91.     wait 10
  92.   end repeat
  93.   find it in background field "The Date"
  94. end mouseDown
  95.  
  96.  
  97. -- part 11 (button)
  98. -- low flags: 00
  99. -- high flags: 2000
  100. -- rect: left=45 top=5 right=33 bottom=82
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 11645 / 11645
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: New Button
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   domenu new card
  112. end mouseUp
  113.  
  114.  
  115.  
  116. -- part 13 (field)
  117. -- low flags: 00
  118. -- high flags: 0007
  119. -- rect: left=37 top=56 right=135 bottom=473
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 0
  123. -- font id: 104
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: On this date in History
  128.  
  129.  
  130. -- part 14 (field)
  131. -- low flags: 00
  132. -- high flags: 0004
  133. -- rect: left=127 top=4 right=31 bottom=304
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: The date
  142.  
  143.  
  144. -- part 16 (field)
  145. -- low flags: 00
  146. -- high flags: 0007
  147. -- rect: left=37 top=163 right=242 bottom=473
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 0
  151. -- font id: 104
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: Today's Birthdays
  156.  
  157.  
  158. -- part 17 (field)
  159. -- low flags: 00
  160. -- high flags: 0007
  161. -- rect: left=37 top=269 right=336 bottom=473
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 0
  165. -- font id: 104
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: Thought for the day.
  170.  
  171.  
  172. -- part 18 (button)
  173. -- low flags: 00
  174. -- high flags: A003
  175. -- rect: left=316 top=5 right=31 bottom=399
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 1
  179. -- font id: 0
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: Find a Topic
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   domenu "Find..."
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 19 (button)
  192. -- low flags: 00
  193. -- high flags: 2000
  194. -- rect: left=4 top=3 right=33 bottom=42
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 17617 / 17617
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: Print
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   PrintField "bkgnd field ID 13",0,72,72,72,72
  206.   PrintField "bkgnd field ID 16",0,72,72,72,72
  207.   PrintField "bkgnd field ID 17",0,72,72,72,72
  208. end mouseUp
  209.  
  210.